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MODULE SYSMOU ( 
LASHES 
BEGIN 


' 
PERE E ESTES TESTES ET TTT TTT TTT PTT TTP e ect r circ tritici iii iii iii ii iciiig 
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!* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
!* ALL RIGHTS RESERVED. 


!* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
:* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 


ft 

® 

e 

* 

® 

w 

& 

® 

ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
ie OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY ®* 
ie TRANSFERRED. 2 
cm 

ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ®* 
AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ®* 

i CORPORATION. « 
® 

® 

® 

® 

* 

® 


ie DIGITAL ASSUMES NO RESPONS 


BILITY FOR THE USE OR RELIABILITY OF ITS 
t® SOFTWARE ON EQUIPMENT WHICH IS 


l 
H NOT SUPPLIED BY DIGITAL. 
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! FACILITY: MOUNT Utility Structure Levels 1 & 2 

i ABSTRACT: 


ode and data needed to mount the system 


This module contains the c 
itialization. 


disk during system in 
ENVIRONMENT : 


STARLET operating system, including privileged system services 
and internal exec routines. 


AUTHOR: Andrew C. Goldstein, CREATION DATE: 11-Nov-1977 19:02 
MODIFIED BY: 


v03-010 CDS0005 Christian D. Saether 29-Aug-1984 
uae STAND_ALONE_REBUILD routine to avoid unnecessary 


' 
: 
i 
i 
i 
i 
i 
} 
i 
i 
i 
i 
i 
i 
i 
i 
i 
rebuilds. 


v03-009 CDS0004 Christian D. Saether e~Aug= 1986 
Test the sysgen flag REBLDSYSD to determine w 
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v03-005 


v03-004 


v03-003 


v03-002 


v03-001 


v02-008 


v02-007 


v02-006 


v02-005 


v0104 


v0103 


v0102 


v101 


1b-sep-1964 OG: 12:45 yanett BL iag-32 v4.02762 
rebuild should be performed. 


HHO0041 Hai guang 24-Jul-1984 
Remove REQUIRE ‘'OBJO$:(CVASLIB.OBJJMOUNTMSG.REQ'. 


te ang 06-May-1984 
Use VSEETOVI_ te to aon the physical device name of the 
system device 


TMHO006 Tim Halvorsen 14-Apr-1984 
Add MOUNT_FLAGS to List of dummy storage needed for 
Linked=in=MOUNT. 


CdS$0003 Christian D. Saether 19=-0¢t-1983 
Now that volume rebuild works, allow FID and EXT caching. 


TCMO0001 oe C. Matthews 19-Aug-1983 
Interlock mounts of the pyeten disk with other potential 
mounters of the same disk in the cluster. Add cluster 
consistency checking ti RK, 


CDS0002 Christian D. Saether 15-Aug-1983 
Set OPT_NOEXT_C, OPT SNOFID. C, OPT_NOQUO_C, an “OPT _WTHRU 
to REALLY disable caching.~ 


CDS0001 Christian D. Saether prAue: -1983 
Temporarily disable caching on system disk until 
xqap cluster rebuild works. 


$7J3061 Steven T. Jeffre ey 04-Mar-1983 
Added definitions “+ DEVICE INDE and CALLERS_ACMOD. 
These parallel definitions Tn VMOU 


$TJ0202 Ste Jeffre 05-Feb-1982 
Make sure the OPT TSOUNTVER bit oets set. The first 
attempt at this ended in disaster. 


$TJ0175 Steven T. Jeffreys, 06-Jan-1982 
Set up the database to ensure the system disk 
is a candidate for mount verification. 


peeves 8 Andrew C. Goldstein hs syeen iter 16:56 


Use default logical name, fix use of $GET 
ACGO181 Andrew C. Goldstein, orgie 15:37 
Fix cross facility reterences 
ACGO123 Andrew Soldeteia, 12-Feb-1980 18:23 
Integrate disk rebuild nto MOUNT 
ACG0079 An nérow C. Goldstein, 11-Nov-1979 19:32 
MOUNT changes for write-back cacheing 

ACG0072 Andrew C Goldstein. 22-Oct-1979 13:53 
Check primary and ark R. device char 

ACG0003 Andrew C. Goldstein, 28-Dec-1978 15:23 


eee 
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FORWARD ROUTINE 
MOUNT. SYSTEM, ' main routine 
MAIN_RANDLER; ! condition handler 


3 113 11) } : Add global variables for multi-volume MOUNT ; 
: 119 19 1 i v100 —ACG0001 Andrew C. Goldstein, 28-Dec-1978 15:22 : 
; 118 118 1! Previous revision history moved to SYSINIT.REV : 
a gas : 
> 121 1e1 1 
3 é 122 1 LIBRARY : SYSSLIBRARY:L 18,32"; : 
: 183 1 REQUIRE 'LIBS:MOUDEF .B32'; : 
2 ne : 
: 159 sh 1 ; 
; 128 59 1 


kK 4 
v04"000 VerSep-19be WS:1eis? — ES¥SInresnedsvsmou-3e+4 ste 


We Bee 
3 } ¢ bee 1 } Own storage for general use in the MOUNT utility 
1g gee | | 
; 1% beg 1 GLOBAL 
. ie 667 1 STORED_CONTEXT : BITVECTOR £34} ! store the context of some 1 time only 
> 138 0668 1 MOUNT FLAGS : LONG INITIA (05; ! MOUNT flags 
; 139 068 1 LOCK_STATUS : VECTOR (C2), ! Lock status Block for SENQ call 
: 140 0670 1 DEVICE INDEX : LONG, ! index into PHYS_NAME array 
3 (141 p67) 1 CALLERS_ACMOD : LONG ! caller's access mode 
: 148 g 1 CLEANUP“FLAGS : BSITVECTOR (32), ! error cleanup status flags 
3 616 0675 «1 CHANNEL, ! channel number for 1/0 
: 144 0674 1 MAILBOX_CHANNEL, ! snennes number of ACP termination mailbox 
: 145 0675 1 PHYS_BUFFER : VECTOR (20, BYTEJ, 
: 146 676 1 ! buffer to construct phys device name 
: 147 677 1 PHYS_NAME : VECTOR C2 
3: «(148 0678 1 INITIAL (0, PHYS_BUFFER), ! descriptor of physical device name 
> 149 0679 1 LOG_BUFFER : VECTOR C20, BYTET, 
s 199 0680 1 ! buffer to construct logical name 
OST 0681 1 HOME BLOCK : BBLOCK (512), ! purse for volume header label or home block 
3 136 0682 1 DEVITE_CHAR : BBLOCK CDIBSK_LENGTHJ, 
; % 06835 1 ! put tse for device characteristics 
3 «6154 0684 1 DEVICE_CHAR2 : BBLOCK COIBSK_LENGTHI, 
s 335 + > ' buffer for 2nd device characteristics 
: 156 6 $ 1 HOMEBLOCK_LBN, ' LBN of home block rea 
: 157 0687 1 HEADER_LBA, ' LBN of file header 
: 158 0688 1 DEV_INDEX, ' index into device data table 
: 159 0689 1 USER_STATUS : VECTOR C2), ! status return for various routines 
: 100 0690 1 CURRENT_RVN, ! RVN of volume being mounted 
: 161 0691 1 CURRENT VCB : REF BBLOCK, ! address of VCB used by CHECK_HEADER2 
3 166 44 1 REAL_RVT : REF BBLOCK, ! address of RVT allocated for volume set 
; 16 0695 1 REAL_VCB : REF BBLOCK, ! address of VCB allocated for volume 
> «(164 0694 1 REAL_FCB REF BBLOCK, ! address of FCB allocated for volume 
; 165 0695 1 REAL_WCB REF BBLOCK, ! address of window allocated for volume 
: 166 06 1 REAL_VCA REF BBLOCK, ! address of cache block allocate 
: 167 0697 1 REAL_AQB REF BBLOCK, ' address of AQB allocated for volume 
; (168 0698 1 LOG_ENTRY REF BBLOCK, ! address of logical name entry 
3; 169 1 MTL_ENTRY REF BBLOCK, ' address of mounted volume List entry 
: 170 00 1 SLOG_ENTRY REF BBLOCK, ! address of volume set logical name entry 
: 4 , 1 ! SMTL_ENTRY REF BBLOCK, ! address of volume set mounted volume List entry 
; 178 7 5 1 DEVCHAR_DESC : VECTOR (2) INITIAL (DIBSK LENGTH. DEVICE_CHAR), 
: 174 7 1 ! descr pyor or device characteristics 
3 175 705 1 DEVCHAR_DESC2 : VECTOR (2) INITIAL 4 SK_LENGTH, DEVICE_CHAR2); 
: 178 4 : ! descriptor for device characteristics 
a. 70 1 
: 139 7 5 1 
: By my oi 
: 182 ns 1 ! The following area is a hand crafted mount parser output suitable for 
3 715 1 ! mounting the system disk. 
pe 714 #1! 
: 185 715 1 !- 
s 2 716 «1 
} 
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MOUNT _OPTIONS 


T 


+i} STRING 
RIVE_COUNT 


PARSE_IMP_END 


GLOBAL BIND 


LABEL_STRING 


AX-11 Bliss-32 V4.0-74 
SYSINI.SRCJSYSMOU.B32; 


iEseortage 98:12:4 


BT yec yor [64] ! option flags 
(1*OPT_SYSTEM OR ! First 32 bits 
1*OPT-WRITE OR 
1*OPT_BLOCK OR 
1*OPT_OVR_ID OR 
1*OPT-DEVICE OR 
1“°OPT FAGEL. 
(14 (OP -ROUNIVER= 32) 0 OR ! Last 32 bits 
1*(OPT-NOQU 32) OR 
) 1° (OPT “WTHRU= 2)) 
NITIAL (0), ! value of /PROTECTION switch 
NITIAL (0), ! value of /OWNER_UIC switc 
NITIAL (0), ! value of /USER_OIC switch 
NITIAL (0), ! value of /EXTERSION switch 
NITIAL (0), ! value of /WINDOW switch 
NITIAL (0), ! value of /ACCESSED switch 
NITIAL (0), ! value of /BLOCK switch 
NITIAL (0), ! value of /CACHE= CEXTENT=n) switch 
NITIAL (0), ! value of /CACHE=(FILE=n) switch 
NITIAL (0), ! value of /CACHE=(QUOTA=n) switch 
NITIAL (0), | value of /CACHE=(LIMIT=n) switch 
NITIAL (1), ! nuaber of devices specified 
NITIAL_ (1), | number of volume Labels specified 
ECTOR ae) logical name of system disk 
ECTOR > i descriptor of structure name 
ECTOR , | descriptor of VISUAL_ID string 
ECTOR » | descriptor of COMMENT string 
ECTOR , | descriptor of ACP device or name string 
VECTOR . i value of /DRIVES switch 


: VECTOR (0); 


DESCRIPTOR (* SYSTEMDISK*) 


' end of data area 


: VECTOR; 
! dummy volume Label of system disk 


PIPIPIPOPIPOPOIPIPINIPIPIPININIPIPININMINIPIAININNPNYNY 


St tet ee 


SOODNAOUE WN" OOONOUES WN —O0O-~ 


DAA MII & ££ 
ODONOULWN— 


oRzS 


Sar 


pow ofolololololololololo) 
—~ 
POAC 


SSNS SS 


09 09 C9 09 09 09 09 09 SII OOAOAO* 
DONAULS WN" OOONOULSWN—OOE 


SSNs 


OOCCOCCOOCOCCOCOCOoCOoCooooooooOooOoO 


GLOBAL ROUTINE MOUNT SYSTEM (SYS_CHANNEL 
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FUNCTIONAL DESCRIPTION: 
This routine mounts the system disk (i.e., the disk to which the 
channel is assigned) and starts the ACP. 

CALLING SEQUENCE: 
MOUNT_SYSTEM (ARG1) 


INPUT PARAMETERS: 
ARG1: channel number assigned to disk 


IMPLICIT INPUTS: 
own storage of this module 


OUTPUT PARAMETERS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 


ROUTINE VALUE: 
1 if successful, assorted statuses if not 


SIDE EFFECTS: 
system disk mounted, ACP started, logical name created 


MOUNT I0SB : VECTOR 
ALLDEQNAM_BUF =: VECTOR RAREBUF whene Ovie2 
INITIAL REP etme a * OF CC® *))), 
ALLDEVNAM_ DESC : VECTOR” m2 “INTIAL : ALLD gaa BOF) 
DEVICE_ITALST : BBLOCK 2) + 4) INITI 


' Ist item - device name 


(WORD (20) ' Length of dev name buffer 
WORD (DVIS _DEVNAM), i Ttem code for device name 
LONG (PHYS-BUFFER), i Dev name buffer address 

LONG (PHYS"NAME), i Returned dev name Length 


$ 
2nd item = allocation class name 


WORD (NAMEBUF_LEN = 4), 
WORD (DVIS_ALCDEVNAM), 
LONG (ALLDEVNAM_BUF + °4), 
LONG (ALLDEVNAM-DESC), 


N 4 
erSep-19be WSiieis? — ESYSInresnessysmou-e3e+4 te | 


End of List. 
"LONG (0)), 


: : ! pointer into characteristics block 
EXTERNAL 
EXESGL_STATIC_FLAGS : ADDRESSING_MODE (GENERAL) BITVECTOR (32), 
DEV_CTR : BBLOCK FIELD (BC); 
! device value block context fields 


EXTERNAL LITERAL 
EXESV_REBLDSYSD; 


EXTERNAL ROUTINE 


-DISKe, Level 2 
STAND_ALONE_REBUILD, rebuild disk bitmaps and quota file 


READ S14 bee ' read disk home block 
MOUNT_DISK1, ! mount disk, level 
MOUNT_DIS mount disk, 

i 


GET_DEVICE_CONTEXT; get device lock value block context 


DEX BBB EEE WANNA IIPIPIPINININI NINN 4 SS SS 


NAME WN SO ODNAUE WN 3 0 OODNOA UNE WN (OVO ONOYL FW OOONOUSw 


8 
8 
8 
8 
8 
8 
8 cs 
04 8 cs 
ry dl 
06 8 ' Enable the condition handler. SY 
$02 8 ! SY 
08 8 SY 
519 4 ENABLE MAIN_HANDLER; SY 
11 8 CALLERS_ACMOD = PSLS$C_SUPER; ! used for logical name access mode 
a5 : CHANNEL”= .SYS_CHANNEL; 
314 8 § 
15 8 ! Take out a lock to synchronize all mounts of this device in a cluster. 
16 8 ! First we must construct the lock resource name (use the allocation class 
\? : name returned by S$GETDVI). 
19 8 
20 P 08 STATUS = $SGETDVIW (CHAN = CHANNEL 
1 P 08 ITMLST = DEVICE ITMLST, 
32 P 085 FN = MOUNT_EFN 
89 10SB = MOUNT” 10S8); 
4 5 IF NOT .STATUS THEN ERR_EXIT SALUTE 
5 32 ALLDEVNAM_DESCCO] = .ALCDEVNAM_DESCCO] + 4; 
$ Pp Se STATUS = SENQW (LKMODE = LCKSK Hite 
8 P 085 LKSB = LOCK_STATUS 
9 P 085 FLAGS = LCKSA_ SYSTEM 
0 P 085 RESNAM = ALLDEQNAM_DESC, 
; P $6 EFN = MOUNT_EFN 
= 


ACMODE PSLSCWEXEC) j 
F NOT .STATUS THEN ERR_EXIT (7STATUS); 


oo 
o 


MEW OO 


I 

r 

! Get the device characteristics and do device type validation: Make sure 

! the device is mountable at all, and check that the mount qualifiers are 

' consistent with the device type. A mismatch between prior? and secondary 
device characteristics indicates a spooled device or somethi 

' 


ng else strange. 
Reject such. 
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| 
| 
| 
| 
| 


. 
6 
. 
. 
. 
o 
. 
2 
. 
° 
. 
° 
7 
’ 
. 
. 
. 
o 
. 
° 
. 
° 
7 
° 
. 
° 
* 
° 
a 
° 
. 
a 
. 
° 
. 
° 
° 
° 
. 
° 
. 
° 
* 
° 
7 
o 
” 
e 
. 
° 
a 
° 
. 
° 
+ 
o 
. 
. 
. 
° 
° 
° 
. 
° 
© 
o 
. 
° 
. 
i 
7 
° 
. 
2 
. 
e 
. 
° 
. 
° 
. 
° 
. 
° 
. 
* 
. 
° 
a 
° 
° 
au 
o 
° 
. 
© 
. 
*. 
. 
° 
. 
° 
. 
. 
. 
* 
. 
. 
. 
* 
7 
° 
. 
° 


PEED 


Nt SII IIIIIG 


VEN OOONOUE WN OODODNOULS WN 


o 


75 


ALAA AAAI AAI ANA 
NN 
wn 


OOOOCCCOOOOOOO 
ettetetettetotetetetetetet 


OOODWODODOWOOONAINNAAIN ANS 


SOOWONAUE ARO OONOUS WO 


Ooooocoocoo 
Neate tt 4 4 9-4 4 
Wr 


hor 


3 


OOOOOOOVOOOVOOOVNOONNO 
BUF "OOOO sun—oo 


Ronononononny — so 


SOoOooooooooooooeo 


SGETCHN (CHAN = .CHANNEL, PRIBUF = DEVCHAR_DESC, SCOBUF = DEVCHAR_DESC2); 


IF CHSNEQ (DIBSK_LENGTH, DEVICE_CHAR, DIBSK_LENGTH, DEVICE_CHAR2, 0) 
OR .DEVICE_CRARCDEV$v_FOD) ~ 

THEN. Rk WEXIT t$S$ NO OFF FILED DEV): 

IF NOT .DEVICE_CHARCDEV$V_AVL] 

THEN ERR_EXIT CSS$_DEVOFFCINE); 

IF .DEVICE CHAACDEVSY 

THEN ERR_ERIT (SS SL OMOUNT) 

IF .DEVICE CHARCDEVSY 

THEN ERR_ERIT (SS NOTETLEDEV) ; 


' 

! The following is for reference only. The physical device name is now 

! obtained with the SGETDVIW system service, rather than formatting device 
name and the unit number. 
i 
i 
i 


Construct the peas ical device name by appending the ascii unit number to 


the device name in the device characteristics. 


iPHYS -NAMECO) = 20; 
t PHYS _ -NAMECI) = PHYS BUFFER; 
'$FAO™ ( 


DESCRIPTOR ("_!AC!UW:"), 
PHYS_NAM NARE [03 P 

PHYS NAMELO 

DEVICE DEVICE _CHARCDIBSW_DEVNAMOF FJ, 
<DEVICEL CnAREDI IB$W_UN Art | 


! Now attempt to read the home block or volume header label, as appropriate 
for the device type. 


STATUS = READ_HOMEBLOCK (LABEL apie: 

a nal IS_FILES11) = ! assume volume is Files-11 
AND .STATUS NEQ SS$_INCVOLLABEL 

THEN ERR_EXIT (.STATUS); 


IF NOT (STATUS = KERNEL_CALL (GET_DEVICE_CONTEXT)) 
THEN ERR_EXIT (.STATUS)> 


IF .MOUNT ony oust or. IS_FILES11B) 
THEN MOUNT _D 
ELSE MOUNT ~bisk 0: 


: Rebuild the volume if it was improperly dismounted. 


IF .CLEANUP_FLAGSCCLF_REBUILD) 


Pp 
age ! 
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SYSMOU.B32; 
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-PSECT S$PLITS,NOWRT,NOEXE,2 


IT 
-IDENT \V04-000\ 


! end of routine MOUNT_COMMAND 
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00000000 


00009000 
00000000" 
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19-3 e 4 02:1 

14- 338: 1382 ¢: 18: o SYSINI. BR CJSYSMOU.832; 
«WORD 32 

[ADDRESS pus BUFFER 

+ a PHYS” NAME 
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oa 
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-PSECT 
00000 STORED_CONTEXT:: 
00004 MOUNT FLAGS 
00008 LOCK_STATUS: : 

.BLKB 
00010 DEVICE_INDEX:: 

.BLKB 
00014 CALLERS As 
00018 CLEANUP_FLAGS:: 
0001C CHANNEL:: 

.BLKB 
00020 MAILBOX_CHANNEL : 
00024 PHYS_BUFFER: : 
00038 PHYS _NAME : 


003¢ 
0040 


00054 
00254 


SGLOBALS$ ,NOEXE ,2 


Ser SF SF FOO 


0 


o 71 


LON G 
ADDRESS PHYS _BUFFER $ 
LOG BUFFER: : 20 


HOME motte 
DEVICE -ciARs 
002¢8 DEVICE _CHARO: : 
0033C HOMEBLOCK_LBN:: 
00340 HEADER_LON: ' 
00344 DEV. INDEX: = 
00348 USER_STATUS:: 
00350 CURRENT Me) 
00354 CURRENT_VCB:: 
00358 REAL_RVT= 
0035¢ REAL_VCBi = 
00360 REAL_FCBIe 


Sep-1984 AX-11 B Bite stent 4.0-74 Pp 1 
ieseectage 93212 Salts woe 
-BLKB 
00364 REAL_WCB:: 
-BLKB 
00368 REAL_VCA:: 
0036¢ REAL_AQB: : 
00370 LOG_ENTRY: : 
00374 MTL_ENTRY:: 
~BLK 
00378 annie 1 
0037C SMTL_ENTRY:: 
-BLKB 
00000074 00380 DEVCHAR DESC: : 


6 
00000000' 00384 ADDRESS DEVICE CHAR : 
00000074 00388 DEVCHAR_DESC2:: 


.LONG 116 
00000000" 0038¢ ADDRESS DEVICE_CHAR2 ; 
00424000 (0408300 $0396 MOUNT_OPTIONS: : 

.LONG  -1069513984, 4341760 : 
00000000 00398 PROTECTION: 
00000000 0039¢ OWNER_UIC:: 
00000000 003A0 USERLUICE: 
00000000 003A4 EXTENSION: : , 


-LON 
00000000 O03A8 WINDOW: : .LONG 
00000000 O0SAC ACCESSED:: 


00000000 00380 nasal 
00000000 00384 EXT_CACHESs 
00000000 00388 FID_CACHES: 
00000000 0038¢ auo_cachéss 
00000000 003c0 ext Limtea 
00000001 003c¢4 DEVICE_COUNT: : 
00000001 003C8 LABEL_COUNT:: 
003CC LOGNAME: 
00304 STRUCT _NARE : 
003DC VID_STRING:: 
003E4 COMMENT STRING: : 
OO3EC ACP_STRING?: 


= SF FFF SF 
—s 
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-BLKB 8 
OO3F4 ORIVE.COUNT: ‘ 
O03F8 PARSE_IMP_END:: 
-BLKB OO 
LABEL_STRING== P.AAA 
~EXTRN EXESGL STATIC_FLAGS 
XTRN DEV_CTR, EXESV_REBLDSYSD 
-EXTRN REAB_HOMEBLOCK, MOUNT_DISK1 
XTRN MOUNT _DISK2, STAND_ALONE_REBUILD 
“EXTRN GET DEVICE CONTEXT 
-EXTRN SYSSGETDVIQ, SYSSENQW 
sEXTRN SYSSGETCHN, SYSSCMKRNL 
.EXTRN SYSS$DEQ 


-PSECT S$CODES,NOWRT,2 


00FC 00000 .ENTRY MOUNT_SYSTEM, Save R2,R3,R4,R5,R6,R7 : 0756 
06 00 9E 0000 MOVAB LIBS$STOP, ; 
0’ CF 9E 000 MOVAB DEVICE CHAR, R6 : 
4 AE 3 000 MOV -76(SPY ; 
20 2 91 MOVC3 #32, P.AAC, ALLDEVNAM_BUF + 0794 
C AE 04 0001 CLRL_ ALLDEVNAM_DESC : 
4 AE 3 001¢ MOV ALLDEVNAM BUF, ALLDEVNAM_DESC+4 F 
1¢ : 0021 MOVC3 #28, P.AAD, DEVICE_ITMLST > 0815 
8 AE 9E 900 7 MOVAB  ALLDEVNAM_BUF+4, DEVICE _ITMLST+16 : 0810 
C AE 9E 0002C MOVAB ALLDEVNAM~DESC, DEVICE_ITMLST+20 + 0794 
D i DE 0031 MOVAL 14$, (FP : 0815 
2 0 90 OVL #2, CALLERS_ACMOD > 0840 
04 aC 00 00 MOVL §_SYS_CHANNEL*> CHANNEL + 0841 
7E 7C 904 CLRO = = (SP) > 0852 
7E D4 0004 CLRL = F 
50 AE OOF 0004 PUSHAB MOUNT_IOSB ; 
10 AE OF 0048 PUSHAB DEVICE_ITMLST ; 
7E D4 00048 CLRL = = (SP) : 
FDC8 C6 DD 0004D PUSHL CHANNEL F 
1A DD 00051 PUSHL # : 
000000006 00 8 FB 00053 CALLS #8, SYSSGETDVIW : 
4 DO 0005A MOVL : 
05 4 € ‘ BLBS § STATUS, 1$ : 0853 
4 Dd 000 PUSHL STATUS ; 
67 1 FB 06 CALLS #1, LIBSSTOP : 
10 AE 4 065 1$: ADDL2 #4, ALLDEVNAM_DESC : 0854 
7E 1 70 0006 MOVO. #1. -(SP) > 0861 
E 7C 9006C CLRQ 20s = §P) : 
7E 7C 000 CLRQ._=(SP) 
34 AE OF 000 PUSHAB ALLDEVNAM_DESC F 
1 pp 007 PUSHL @# : 
FDB4 F 0007 PUSHAB LOCK_STATUS : 
DD 000 PUSHL @# ; 
A OD 0078 PUSHL #26 Ps 
000000006 00 ; FB 0007D CALLS #11, SYSSENQW : 
4 dO 00¢ MOVL RO, STAT ; 
5 4 €8 00087 BLBS STATUS, ; 0862 
4 DD O008A PUSHL STATUS : 
67 1 FB 0008C CALLS #1, LIBSSTOP : 


1$-sen-1984 02:12:45 yARet! BL ien-32 v4 0274 


0134 c6 9F gf 2$: PUSHAB DEVCHAR_DESC2 
: p4 CLRL = = (SP) 
012¢ 5 F 0009 PUSHAB DEV CHAR, DESC 
mee BS ee 
000000006 00 F F CALL rin NoyS $GETCHN 
7% Ab 66 0074 F é Mo CMEC ilo, DEVICE_CHAR, DEVICE_CHAR2 
08 01 Ab 6 5 AF BBS WG, DEVICE CHART, 4$ 
7 O1cc §«6BF 63C 00084 3S: MOVZWL #460, -(SPY 
6 1 FS B9 CALLS #1, LIB$STOP 
07 02 A6 2 7 BC 4$: BBS ae DEVICE CHAR+2, 5$ 
7 84 BF 9A 000C MOVZBL #152, -(SPT 
6 1 Fe ¢ LLS ul. C1IBS$STOP 
07 02 A6 3 . CB S$: BBC DEVICE CHAR+2, 6$ 
7 6C «BF OA OCD MOVZBL F168. = (SP) 
6 1 FB 00001 CALLS a. C1B$STOP 
08 4 5 f 0D4 6$: ¢ DEVICE CHAR, 7$ 
E O1cc «=BF OCC 08 MOVZWL 0, -(SPT 
6 1 FB 000DD LLS C1BSsTOP 
0000" CF 9F OOOEO 7$ PUSHAB tae EL_S 
00006 CF o1 FB OO00E4 CALLS BEL AD. HOREBLOCK 
54 9 p 00E9 MOVL 
0140 6 Q OOEC BISB2 MOUNT goPTIONS+4 
E 4 €8 O00F1 BLBS ue. US, 8 
0000010c =F 54 D1 O00F4 CMPL TATUS, S68 
05 13 000FB BEQL 
4 Dd 000FD PUSHL STA 
67 Qi FB OOOFF CALLS TW Wiasstop 
E D4 00102 8$: CLRL = ={P) 
5E BD 0104 PUSHL 
00006 CF 9F 0106 PUSHAB Gere DEVICE_CONTEXT 
000000006 9F 93 F 10A CALLS » @&#SYSSCMKRNL 
38 t PB bolts PBs RO: 31 
ef DD o117 PUSHL STATUS 
67 o1 Fe 119 CALLS #1, LIBSSTOP 
07 0140 C6 E1 OO11C 9S: BBC ; MOUNT =PeTIgses. 1 
G CF F CALLS MOUNT ~DISK 
_— 1 1 BRB 0, TbIs 
00006 CF 0 FB 129 10$: | CALLS #0, MOUNT DISK1 
22 Foc5, sé 1 €1 0012E 11$: BBC #1. CLEANOP FLAGS+1, 12% 
16 000000006 60 900900006 F £1 001 ¢ ae F REBLDSYSD, EXESGL_STATIC_FLAGS, 
000000006 00 vst ota ‘ PB 128 CALS Af Cyelsieun 
FDC8 6 DD 0014D PUSHL CHiN 
00006 CF 1 FB 00151 CALLS STAND ALONE gREBUILD 
50 FDBS C6 p 6 128: HOVE tox. STATOS#4 
7E 7¢ 0015D CLRO = = (SP) 
43 D4 0015F CLRL = = (SP) 
; DD 00161 PUSHL R 
000000006 00 4 FB 163 CALLS #4, SYSS$DEQ 
FDBB c6 D4 OO16A CLAL Lock STATUS+4 
50 1 i c 13$: HOVL #i, R 
0000 00172 14$: -WORD Save nothing 


128 


ro 
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zE D4 17% CLRL 0s = (SP) F 

E bp 126 PUSHL SP F 

7E 04 AC D 0017 MOV 6 (AP) -(SP) : 
0000v CF 03 FB 0017C CALLS #3, MAIN_HANDLER ; 
04 00181 RET : 


; Routine Size: 386 bytes, Routine Base: $CODE$ + 0000 
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NECREEHOEA ARERR LSRNGHEDH 
ROUTINE MAIN_HANDLER (SIGNAL, MECHANISM) = 
i++ 
FUNCTIONAL DESCRIPTION: 
This routine is the main level condition handler for the MOUNT 
utility. It undoes anything MOUNT has done so far and then 
) 


hat 
unwinds and returns the condition code as status to MOUNT's 
caller (i.e., the CLI). 


i 

' 

i CALLING SEQUENCE: 
MAIN_HANDLER (ARG1, ARG2) 

i INPUT PARAMETERS: 

; ARG]: address of signal array 
ARG2: address of mechanism array 
i IMPLICIT INPUTS: 

NONE 

' 

i QUTPUT PARAMETERS: 

NONE 

i IMPLICIT OUTPUTS: 

NONE 

] 

' ROUTINE VALUE: 

SS$_CONT INUE 

' 


SIDE EFFECTS: 
stack unwound, control passed to CLI 


BEGIN 
MAP 
SIGNAL : REF BBLOCK, ' signal array 
MECHANISM : REF BBLOCK; ! mechanism array 
EXTERNAL 
USER_STATUS : VECTOR; ! status return of some routines 


' Do cleanup as indicated by the status flags. 
: Cause the condition code to be returned in RO as the main routine value. 


IF .SIGNALCCHFSL_SIG_NAME) NEQ SS$_UNWI 
+ aie CSIGRALECHF SL S16 NAREI. STS$SV_SEVERITY] EQL STSSK_SEVERE 
BEGIN 


F_.SIGNALCCHFS$L_SIG_NAME] NEQ 0 
THEW RECHAN] SMECRE LIMCH_SAVRO) = .SIGNALCCHFSL_SIG_NAME) 


5 
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; 47 1 ELSE MECHANISMCCHFSL_MCH_SAVRO] = .USER_STATUSCO); 
; t78 1 if »LOCK_STATUS ht REQ 0 " 
> 474 1 § HEN 
; 475 1 BEGIN 
; $78 1004 4 DEQ CLKID z hock STATUS (1)); 
3 47 1005 LOCKS Atus Ci) = 0; 
; $f8 1 ND; 
: 4 1 SUNWIND (); 
; : , : 3 END; 
3 ? § ! 19 RETURN SS$_CONTINUE; ! continue from success signals 
3; «4 1012 END; ! end of routine MAIN_HANDLER 
eEXTRN SYSSUNWIND 
0000 00000 MAIN_HANDLER: 
-WORD Save nothing 
51 04 aC 00 4 MOVL SIGNAL, R1 
00000920 = &F 04 Al 01 000 CMPL 4(R1), #2336 
hoe yd BEQL 4$ 
04 046 Al 03 9 + 001 CMPZV) «#0, #3, 4(R1), 4 
0 1 BNEQ 4$ 
50 08 AC 00 0001 MOVL MECHANISM, RO 
04 Ai 05 Q00IC TSTL 4(R1) 
07 13 O001F BEQL 1$ 
oc Ad 04 Al 00 00021 MOVL 4(R1), 12(RO) 
06 11 000 8 BRB 2s 
oc ad 0000G CF »dO 4 1$: MOVL USER_STATUS, 12(RO) 
50 0000° CF 9 O2E 2$: MOVL LOCK_STATUS+4, RO 
Yi 13 000 BEQL §«6=s-3$ 
7E 7C 000 CLRQ -(SP) 
if D4 BS CLRL -(SP) 
50 DD 9 PUSHL RO 
000000006 00 04 FB 00 CALLS #4, SYSS$DEQ 
0000' cr b4 004 CLRL LOCK STATUS+#4 
C : 46 3%: CLRO - 
000000006 99 8 FB 3 CALLS #2, SYSSUNWIND 
4F 4$: MOVL #1, RO 
4 00052 RET 
; Routine Size: 83 bytes, Routine Base: S$CODE$S + 0182 


$ iB 
: 4 
; 4 


1013 1 

ite 1 END 

1015 0 ELUDOM 

-EXTRN LIBSSIGNAL, LIBSSTOP 
PSECT SUMMARY 
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Name Bytes Attributes 
$GL 
$ 


Voe-600 i: see 8:18:57 = ENSIMs°$ReSsvmbu:030+1 tse u 
 sc.opa 
: SPLITS 
: ScODES 


$ im ' WOVE’ WRT, RD ,NOEXE,NOSHR, 
& 


LC 
CLNOWRT, RD ,NOEXE,NOSHR, tec 
NOVEC,NOWRT, RD, EXE,NOSHR, LCL 


ss 8 
2 
m 
= 
. 

Oon 

ooo 

222 

.*- s+ © 

Zz2z2—2 

ooo 

vuvuVv 

bb 

OOn 

7s. © 

>>> 

--- 

1 lee 

QaAD 

222 

Ce 

rorore 

~~ 


Library Statistics 


; woceee== Symbols -ooe---- Pages Processin 

: File Total toaded Percent Mapped Time ’ 

: _$255$DUA28:CSYSLIBILIB.L32;1 18619 37 0 1000 00:01.9 

3 COMMAND QUALIFIERS 

; BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE)/LIS=LIS$:SYSMOU/OBJ=0BJ$:SYSMOU MSRC$:SYSMOU/UPDATE=(ENH$: SYSMOU) 
: pizes 469 code + 1096 data bytes 

: un Time: 00:1 P 

: Sleaned Time: 


:36.7 
3 Lines/CPU Min: : 3598 


cs 
cs 
cs 
cs 
cs 
cs 
cs 
Cs 
cs 
cs 
cs 
cs 
Cs 
cs 
Cs 
cs 
EA 
NC 
$s 


Ss 
SCK 
$s 
Ss 
$s 
$ 
$s 
Ss 
$s 
$s 
$s 
Ss 
$s 
$s 
Ss 
$s 
$s 
$s 
Ss 
$s 
Ssi 
$s! 
$s! 
Ss! 
Ssi 
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